﻿Imports System

Namespace System.Workflow.ComponentModel
    <AttributeUsage((AttributeTargets.Interface Or AttributeTargets.Class), AllowMultiple:=False)> _
    Friend NotInheritable Class ActivityExecutorAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal executorTypeName As String)
            Me.executorTypeName = String.Empty
            Me.executorTypeName = executorTypeName
        End Sub

        Public Sub New(ByVal executorType As Type)
            Me.executorTypeName = String.Empty
            If (Not executorType Is Nothing) Then
                Me.executorTypeName = executorType.AssemblyQualifiedName
            End If
        End Sub


        ' Properties
        Public ReadOnly Property ExecutorTypeName As String
            Get
                Return Me.executorTypeName
            End Get
        End Property


        ' Fields
        Private executorTypeName As String
    End Class
End Namespace

